100 REM   ***   PROGRAMM NR.2   ***
110 :
120 IFZ=0THENZ=1:LOAD"GRAFIK MODUL",8,1
130 CLS=938:PLOT=820
140 :
150 X0=160:Y0=100  :REM  MITTELPUNKT
160 XR=90 :YR=80   :REM  X & Y-RADIUS
170 :
180 POKE53265,59:POKE53272,24:PRINT"[147]"
190 SYS CLS
200 :
210 FORX=XRTO0STEP-1
220 Y=SQR(XR*XR-X*X)*YR/XR:Y2=Y
230 SYS PLOT,X0+X,Y0+Y
240 SYS PLOT,X0+X,Y0-Y
250 SYS PLOT,X0-X,Y0+Y
260 SYS PLOT,X0-X,Y0-Y
270 Y=Y-1:IFY>Y1THEN230
280 Y1=Y2
290 NEXTX
300 :
310 POKE198,0:WAIT198,1:GETA$
320 :
330 POKE53265,27:POKE53272,21
340 END
350 :